home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Menu.Dxr / 00001_Menu startmovie script.ls next >
Encoding:
Text File  |  1998-05-04  |  760 b   |  29 lines
  1. global gMasterData, gHandCursor, gFingerCursor
  2.  
  3. on startMovie
  4.   setModule(gMasterData, #main)
  5.   set the text of member "PrintAllAnswers" to EMPTY
  6.   set gHandCursor to [member "hand cursor", member "hand mask"]
  7.   set gFingerCursor to [member "finger cursor", member "finger mask"]
  8.   setFingerCursor(#on, [39, 40, 41, 42, 43, 44])
  9.   set the timeoutLength to 30 * 60
  10.   set the exitLock to 1
  11.   cursor(0)
  12. end
  13.  
  14. on stopMovie
  15.   set the preloadRam to 0
  16.   unloadMember(member "Alliance intro")
  17. end
  18.  
  19. on quitNow
  20.   restoreMachine(gMasterData)
  21.   quit()
  22. end
  23.  
  24. on preLoadTina
  25.   set the fileName of member "Alliance intro" to "@/Media/" & "intro.mov"
  26.   set the preloadRam to 0.29999999999999999 * the size of member "Alliance intro"
  27.   preloadMember(member "Alliance intro")
  28. end
  29.